^0 neg ^1 neg translate

dstR 3 get dstR 1 get sub ^3 ^1 sub div scale

dstR 2 get dstR 0 get sub ^2 ^0 sub div

dstR 0 get dstR 1 get translate

/dstR[newpath clippath pathbbox]def newpath